﻿Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Imports Controladores

 _

Class consultarCartera
   Inherits System.Web.UI.Page
  
   Protected Sub Page_Load(sender As Object, e As EventArgs)
      
      
      If Session("privUser") Is Nothing Or Integer.Parse(Session("privUser").ToString()) < 1 Then
         Response.Redirect("Index.aspx")
      End If
      
      If Session("privUser") Is Nothing Or Integer.Parse(Session("privUser").ToString()) < 2 Then
         campoDNI.Text = Session("DNIUser").ToString()
         campoDNI.Enabled = False
         BotonAceptar.Enabled = False
         If Not (Session("DNIUser") Is Nothing) Then
            listaCartera.Value = controlador.listarCartera(Session("DNIUser").ToString())
         End If
      Else
         campoDNI.Enabled = True
         BotonAceptar.Enabled = True
      End If
   End Sub 'Page_Load
   
   
   Protected Sub aceptarDNI(sender As Object, e As EventArgs)
      listaCartera.Value = controlador.listarCartera(campoDNI.Text.ToString())
   End Sub 'aceptarDNI
End Class 'consultarCartera